﻿Public Class LabelledControl
    Inherits ContentControl

    Shared Sub New()
        DefaultStyleKeyProperty.OverrideMetadata(GetType(LabelledControl), New FrameworkPropertyMetadata(GetType(LabelledControl)))
    End Sub



    Public Shared ReadOnly LabelProperty As DependencyProperty = _
        DependencyProperty.Register( _
            "Label", GetType(String), GetType(LabelledControl), _
            New FrameworkPropertyMetadata(""))

    Public Property Label As String
        Get
            Return CType(GetValue(LabelProperty), String)
        End Get
        Set(ByVal value As String)
            SetValue(LabelProperty, value)
        End Set
    End Property



End Class
